﻿Public Class BuscarUsuario
    Private ucConsultarMetas As ConsultarMetas

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim ubicacion As New Point(152, 0)
        Dim usuario As Usuarios

        ucConsultarMetas = New ConsultarMetas(txtCodigoEmpleado.Text)
        ucConsultarMetas.Location = ubicacion

        usuario = Me.Parent
        usuario.Controls.Add(ucConsultarMetas)
        usuario.mostrar(ucConsultarMetas)
        'usuario.tvUsuarios.SelectedNode = Nothing
    End Sub

    Private Sub btnAgregarPuestoEmpleado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregarPuestoEmpleado.Click
        Dim diagAgregarPuestoEmpleado As AgregarPuestoUsuario
        diagAgregarPuestoEmpleado = New AgregarPuestoUsuario(txtCodigoEmpleado.Text)
        diagAgregarPuestoEmpleado.ShowDialog()
    End Sub

    Private Sub BuscarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
